home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu183.dms / pu183.adf / general.bas < prev    next >
BASIC Source File  |  1990-12-04  |  22KB  |  556 lines
  1. 100 REM GENERAL Program.
  2. 110 REM Documentation.  General Information.
  3. 120 REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. ' Ported to the Amiga in March 1988 by Nathan Barber
  5. ' Adaptions for Amiga graphics (c) 1988 by Nathan Barber
  6. 130 DATA Genealogy
  7. 140 DATA User's Manual
  8. 150 DATA -5
  9. 160 DATA 1
  10. 170 INDENT = 0
  11. 180 REM Printer Definitions
  12. 190 FORM.FEED$  = CHR$(12)
  13. 200 COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  14. 210 BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  15. 220 EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  16. 230 DASHES$ = "+"+STRING$(54,45)+"+"
  17. 240 TRIM.LINE$ = "(Trim-line)"
  18. 300 REM Program begins here
  19. 310 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  20. 320 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  21. 330 GOSUB 920  :REM'For trim line and heading space
  22. 340 FOR I = 1 TO 6 : LPRINT : NEXT I
  23. 350 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  24. 360 LPRINT EXPAND.ON$;   :REM'Set Expanded Print
  25. 370 LPRINT TAB(TAB.POS-1);TITLE$
  26. 380 LPRINT EXPAND.OFF$;  :REM'Return to normal
  27. 390 LPRINT BOLD.OFF$;    :REM'Return to normal
  28. 400 FOR I = 1 TO 3 : LPRINT : NEXT I
  29. 410 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  30. 420 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  31. 430 LPRINT BOLD.OFF$;    :REM'Return to normal
  32. 440 LPRINT : LPRINT : LPRINT
  33. 450 LPRINT TAB(TAB.POS+11);"Version 5.0"
  34. 460 FOR I = 1 TO 11 : LPRINT : NEXT I
  35. 470 LPRINT TAB(TAB.POS+10); DOC.NAME$
  36. 480 LINE.NO = LINE.NO + 27
  37. 490 :REM'
  38. 500 READ REPLY$
  39. 510 REM First, change tildes to quotes
  40. 520 FOR Q = 1 TO LEN(REPLY$)
  41. 530  IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  42. 540 NEXT Q
  43. 550 IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  44. 560 IF LINE.NO > 44 THEN GOSUB 1030
  45. 570 REM Print the line if not a command
  46. 580 LPRINT TAB(TAB.POS);REPLY$
  47. 590 LINE.NO = LINE.NO + 1
  48. 600 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  49. 610 GOTO 500
  50. 620 REM Data for the Copyright Page
  51. 630 DATA ".pa"
  52. 640 DATA " "
  53. 750 DATA ".vt 12"
  54. 760 DATA "Users are encouraged to copy and share"
  55. 770 DATA "the programs with others."
  56. 780 DATA ".vt 5"
  57. 790 DATA "If you are using these programs, you are"
  58. 800 DATA "expected to become a Registered User,"
  59. 810 DATA "by making a contribution to the author"
  60. 815 DATA "of the programs ($45.00 suggested)."
  61. 820 DATA ".sp"
  62. 830 DATA "Melvin O. Duke"
  63. 840 DATA "P. O. Box 20836"
  64. 850 DATA "San Jose, CA  95160"
  65. 860 DATA ".vt 4"
  66. 870 DATA "Copyright (c) 1983 through 1987, by:"
  67. 880 DATA "Melvin O. Duke."
  68. 890 DATA ".sp"
  69. 900 DATA "All rights reserved."
  70. 910 :REM'
  71. 920 REM Top of each page routine
  72. 930 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  73. 940 LPRINT
  74. 950 LPRINT TAB(30); TRIM.LINE$
  75. 960 LPRINT DASHES$ :REM'Dashes
  76. 970 FOR I = 1 TO 6
  77. 980  LPRINT
  78. 990 NEXT I
  79. 1000 LINE.NO = LINE.NO + 6
  80. 1010 RETURN
  81. 1020 :REM'
  82. 1030 REM Bottom of each page Routine
  83. 1040 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  84. 1050 LPRINT TAB(TAB.POS); STRING$(40,45)  :REM'on line 46
  85. 1060 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" :REM'on line 47
  86. 1070 IF PAGE.NO MOD 2 = 1 THEN 1110
  87. 1080 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 1090 LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 1100 GOTO 1160
  90. 1110 LPRINT TAB(TAB.POS); "User's Manual";
  91. 1120 IF PAGE.NO < 10 THEN DELTA = 34
  92. 1130 IF PAGE.NO >  9 THEN DELTA = 33
  93. 1140 IF PAGE.NO > 99 THEN DELTA = 32
  94. 1150 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  :REM'on line 48
  95. 1160 LPRINT : LPRINT : LPRINT
  96. 1170 LPRINT DASHES$ :REM'dashes after 51
  97. 1180 LPRINT TAB(30); TRIM.LINE$
  98. 1190 LPRINT FORM.FEED$;
  99. 1200 PAGE.NO = PAGE.NO + 1
  100. 1210 LINE.NO = 1
  101. 1220 IF REPLY$ = ".eof" THEN 1240  :REM'Bypass after last page
  102. 1230 GOSUB 920  :REM'For top of next page
  103. 1240 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  104. 1250 RETURN
  105. 1260 :REM'
  106. 1270 REM Command Processor
  107. 1280 IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  108. 1290 IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  109. 1300 IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  110. 1310 IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  111. 1320 IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  112. 1330 IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  113. 1340 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 1350 IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  115. 1360 IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  116. 1370 IF LEFT$(REPLY$,3) = ".in" THEN 2170
  117. 1380 STOP
  118. 1390 REM Head 1 Processor
  119. 1400 FOR I = LINE.NO TO 44
  120. 1410  LPRINT
  121. 1420 NEXT I
  122. 1430 GOSUB 1030  :REM'Bottom of page Routine
  123. 1440 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  :REM'For h1 on Odd pages
  124. 1450 LPRINT BOLD.ON$;     :REM'Set emphasized print
  125. 1460 LPRINT EXPAND.ON$;   :REM'Set expanded print
  126. 1470 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 :ELSE ADJUST = -5
  127. 1480 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  128. 1490 LPRINT EXPAND.OFF$;  :REM'Return to normal
  129. 1500 LPRINT BOLD.OFF$;    :REM'Return to non-bold
  130. 1510 LINE.NO = LINE.NO+1
  131. 1520 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  132. 1530 RETURN
  133. 1540 :REM'
  134. 1550 REM Head 2 Processor
  135. 1560 IF LINE.NO = 7 THEN 1580 :REM'skip spacing if at top of page
  136. 1570 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  137. 1580 LPRINT BOLD.ON$;  :REM'Set emphasized print
  138. 1590 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  139. 1600 LPRINT BOLD.OFF$; :REM'Return to normal
  140. 1610 LPRINT
  141. 1620 LINE.NO = LINE.NO + 2
  142. 1630 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  143. 1640 RETURN
  144. 1650 :REM'
  145. 1660 REM Head 3 Processor
  146. 1670 IF LINE.NO = 7 THEN 1690 :REM'skip spacing if at top of page
  147. 1680 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  148. 1690 LPRINT BOLD.ON$;  :REM'Set emphasized print
  149. 1700 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  150. 1710 LPRINT BOLD.OFF$; :REM'Return to normal
  151. 1720 LPRINT
  152. 1730 LINE.NO = LINE.NO + 2
  153. 1740 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  154. 1750 RETURN
  155. 1760 :REM'
  156. 1770 REM Single Space Processor
  157. 1780 IF LINE.NO = 7 THEN 1800
  158. 1790 IF LINE.NO > 44 THEN GOSUB 1860 :ELSE LPRINT : LINE.NO = LINE.NO + 1
  159. 1800 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  160. 1810 RETURN
  161. 1820 REM End of File Processor
  162. 1830 GOSUB 1860 :REM'Bottom of Page
  163. 1850 GOTO 6570
  164. 1860 REM Page Eject Processor
  165. 1870 FOR I = LINE.NO TO 44
  166. 1880  LPRINT
  167. 1890  LINE.NO = LINE.NO + 1
  168. 1900 NEXT I
  169. 1910 GOSUB 1030  :REM'Bottom of Page Processing
  170. 1920 RETURN
  171. 1930 REM Vertical Tab Processor
  172. 1940 IF LINE.NO = 7 THEN 2030
  173. 1950 IF LINE.NO > 44 THEN GOSUB 1030  :REM'End of page
  174. 1960 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  175. 1970 FOR I = 1 TO QTY
  176. 1980  LPRINT
  177. 1990  LINE.NO = LINE.NO + 1
  178. 2000  IF LINE.NO > 44 THEN I = QTY
  179. 2010 NEXT I
  180. 2020 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  181. 2030 RETURN
  182. 2040 REM Pack Processor
  183. 2050 IF LINE.NO > 44 THEN GOSUB 1030
  184. 2060 IF TAB.POS = 8 THEN ADJUST = 4
  185. 2070 IF TAB.POS = 13 THEN ADJUST = 7
  186. 2080 TAB.POS = TAB.POS + ADJUST + INDENT
  187. 2090 WIDTH "lpt1:", 132 :REM'set condensed width
  188. 2100 LPRINT COMPR.ON$;  :REM'Packed printing
  189. 2110 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  190. 2120 LPRINT COMPR.OFF$; :REM'Return to normal
  191. 2130 WIDTH "lpt1:", 80  :REM'return to normal
  192. 2140 LINE.NO = LINE.NO + 1
  193. 2150 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  194. 2160 RETURN
  195. 2170 REM Indent Processor
  196. 2180 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  197. 2190 RETURN
  198. 3000 DATA ".h1 GENERAL INFORMATION"
  199. 3010 DATA ".pn 9"
  200. 3020 DATA ".h2 DATA ACCESS REQUIREMENT"
  201. 3030 DATA "All of the data files and indexes used"
  202. 3040 DATA "by Genealogy ON DISPLAY are expected to"
  203. 3050 DATA "be available to any of the programs at"
  204. 3060 DATA "the same time.  Also, no data-file or"
  205. 3070 DATA "index can be split across drives."
  206. 3080 DATA ".h2 DESCRIPTION OF FUNCTIONS"
  207. 3090 DATA ".h3 File Formatting."
  208. 3100 DATA "Programs are provided to permit the user"
  209. 3110 DATA "to format one data file which contains"
  210. 3120 DATA "information about persons, another data"
  211. 3130 DATA "file which contains information about"
  212. 3140 DATA "marriages, and a third data file which"
  213. 3150 DATA "contains information about ordinances."
  214. 3160 DATA ".h3 File Maintenance."
  215. 3170 DATA "Programs are provided for the maintenance"
  216. 3180 DATA "of the three data files.  The user is free"
  217. 3190 DATA "to change any information, or to add new"
  218. 3200 DATA "information at any time."
  219. 3210 DATA ".h3 File Indexes."
  220. 3220 DATA "Programs are provided for the formatting"
  221. 3230 DATA "of two indexes, one of which relates"
  222. 3240 DATA "parents and their children, and the other"
  223. 3250 DATA "which relates persons by marriage."
  224. 3260 DATA ".h3 Summary Lists."
  225. 3270 DATA "Programs are provided which will produce"
  226. 3280 DATA "summary lists of the records in the file"
  227. 3290 DATA "which contain the personal information,"
  228. 3300 DATA "or of the records in the file which con-"
  229. 3310 DATA "tain the marriages information."
  230. 3320 DATA ".h3 Detailed Data."
  231. 3330 DATA "One program is provided which will print"
  232. 3340 DATA "either individual records or the entire"
  233. 3350 DATA "contents of the Persons File, together"
  234. 3360 DATA "with the Ordinances File.  A second"
  235. 3370 DATA "program is provided which will print"
  236. 3380 DATA "either individual records or the entire"
  237. 3390 DATA "contents of the Marriages File."
  238. 3400 DATA ".h3 Displaying the Genealogy"
  239. 3410 DATA "Once the data files are as complete as"
  240. 3420 DATA "possible, and the indexes have been"
  241. 3430 DATA "prepared, then the 'Display the Genealogy'"
  242. 3440 DATA "program 'display' can be used to display"
  243. 3450 DATA "the information about a person (including"
  244. 3460 DATA "personal information and church-related"
  245. 3470 DATA "information), an ancestral pedigree, or"
  246. 3480 DATA "the information about a family."
  247. 3490 DATA ".pa
  248. 3500 DATA ".h3 Printing Pedigree Charts"
  249. 3510 DATA "Once the data files are as complete as"
  250. 3520 DATA "possible, and the indexes have been"
  251. 3530 DATA "prepared, then the Pedigree Program"
  252. 3540 DATA "'pedigree' can be used to print the"
  253. 3550 DATA "pedigree chart for any person who is"
  254. 3560 DATA "identified by the user."
  255. 3570 DATA ".h3 Printing Family Group Sheets"
  256. 3580 DATA "Once the data files are as complete as"
  257. 3590 DATA "possible, and the indexes have been"
  258. 3600 DATA "prepared, then the Family Group Program"
  259. 3610 DATA "'family' can be used to print the"
  260. 3620 DATA "family group sheet for any marriage"
  261. 3630 DATA "which is identified by the user."
  262. 3640 DATA ".h3 Producing Descendents Charts"
  263. 3650 DATA "Once the data files are as complete as"
  264. 3660 DATA "possible, and the indexes have been"
  265. 3670 DATA "prepared, then the Descendents Chart"
  266. 3680 DATA "Program 'descend' can be used to"
  267. 3690 DATA "display (and optionally print) a"
  268. 3700 DATA "descendents chart for any person who"
  269. 3710 DATA "is identified by the user."
  270. 3720 DATA ".pa"
  271. 3730 DATA ".h2 DEFINITION OF TERMS"
  272. 3740 DATA ".h3 Personal Information."
  273. 3750 DATA "Personal information is that information"
  274. 3760 DATA "that is unique to a person.  It includes"
  275. 3770 DATA "the person's name, his date of birth, the"
  276. 3780 DATA "location of his birth, and his parents."
  277. 3790 DATA "It also contains (if appropriate) the"
  278. 3800 DATA "same type of information about a person's"
  279. 3810 DATA "death and burial."
  280. 3820 DATA ".h3 Pedigree Information."
  281. 3830 DATA "Pedigree information is that information"
  282. 3840 DATA "which shows the parents, grandparents,"
  283. 3850 DATA "etc., about a person.  It includes the"
  284. 3860 DATA "direct ancestry of the person."
  285. 3870 DATA ".h3 Family Group Information."
  286. 3880 DATA "Family group information is that informa-"
  287. 3890 DATA "tion about a marriage, and the children"
  288. 3900 DATA "of the marriage.  It includes the location"
  289. 3910 DATA "and date of the marriage, as well as"
  290. 3920 DATA "birth-dates, birth-places, and other in-"
  291. 3930 DATA "formation about the children, such as"
  292. 3940 DATA "marriage dates, and names of the spouse"
  293. 3950 DATA "of each child."
  294. 3960 DATA ".pa"
  295. 3970 DATA ".h3 Descendants Information."
  296. 3980 DATA "Descendants information is that infor-"
  297. 3990 DATA "mation about a person, that person's"
  298. 4000 DATA "marriages, that person's children, the"
  299. 4010 DATA "marriages of those children, the child-"
  300. 4020 DATA "ren of those children, etc., etc."
  301. 4030 DATA ".sp"
  302. 4040 DATA "It includes references to each person's"
  303. 4050 DATA "number, each birthdate, each marriage"
  304. 4060 DATA "number, and the date of each marriage."
  305. 4070 DATA ".h2 Ordinance Information."
  306. 4080 DATA "Ordinance information is information"
  307. 4090 DATA "about (LDS) church-related events in a"
  308. 4100 DATA "person's life."
  309. 4110 DATA ".pa"
  310. 4120 DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
  311. 4130 DATA "Genealogy is concerned with information"
  312. 4140 DATA "about any number of direct ancestors,"
  313. 4150 DATA "reaching backward as many generations"
  314. 4160 DATA "as possible.  It is also concerned with"
  315. 4170 DATA "family groups, with spouses, and with"
  316. 4180 DATA "children within the family groups."
  317. 4190 DATA ".sp"
  318. 4200 DATA "Keeping track of the broad and varied"
  319. 4210 DATA "relationships is a tedious manual task."
  320. 4220 DATA ".sp"
  321. 4230 DATA "Genealogy ON DISPLAY provides the basis"
  322. 4240 DATA "for recording and relating these varied"
  323. 4250 DATA "relationships by utilizing two data"
  324. 4260 DATA "files and two indexes.  The first data"
  325. 4270 DATA "file contains information about persons."
  326. 4280 DATA "The second data file contains informa-"
  327. 4290 DATA "tion about marriages.  The first index"
  328. 4300 DATA "relates parents and their children."
  329. 4310 DATA "The second index relates people with"
  330. 4320 DATA "marriages."
  331. 4330 DATA ".sp"
  332. 4340 DATA "With these two files, and two indexes,"
  333. 4350 DATA "Genealogy ON DISPLAY is able to"
  334. 4360 DATA "associate every person with every other"
  335. 4370 DATA "person, both with parent/child rela-"
  336. 4380 DATA "tionships, and with husband/wife"
  337. 4390 DATA "relationships."
  338. 4400 DATA ".sp"
  339. 4410 DATA "A third data file contains additional"
  340. 4420 DATA "personal information which is church-"
  341. 4430 DATA "related.  It contains all of the LDS"
  342. 4440 DATA "ordinance information about a person."
  343. 4450 DATA ".pa"
  344. 4460 DATA ".h3 persfile"
  345. 4470 DATA "The first data file, named 'persfile',"
  346. 4480 DATA "contains all of the personal information"
  347. 4490 DATA "about an individual.  It also contains a"
  348. 4500 DATA "reference to that person's father and"
  349. 4510 DATA "mother.  Its format and content are:"
  350. 4520 DATA ".sp"
  351. 4530 DATA "Size  Content"
  352. 4540 DATA "----  --------------------------"
  353. 4550 DATA "  5   Record Number for a Person"
  354. 4560 DATA " 20   Surname of person"
  355. 4570 DATA " 30   Given names of person"
  356. 4580 DATA "  2   Sex"
  357. 4590 DATA "  5   Code"
  358. 4600 DATA "  5   Father's Record Number"
  359. 4610 DATA "  5   Mother's Record Number"
  360. 4620 DATA " 11   Birth-date of person"
  361. 4630 DATA " 18   Birth-city"
  362. 4640 DATA " 16   Birth-county"
  363. 4650 DATA " 16   Birth-state or country"
  364. 4660 DATA " 11   Death-date"
  365. 4670 DATA " 18   Death-city"
  366. 4680 DATA " 16   Death-county"
  367. 4690 DATA " 16   Death-state or country"
  368. 4700 DATA " 11   Burial-date"
  369. 4710 DATA " 18   Burial-city"
  370. 4720 DATA " 16   Burial-county"
  371. 4730 DATA " 16   Burial-state or country"
  372. 4740 DATA ".sp"
  373. 4750 DATA "Note: Code is available to the user"
  374. 4760 DATA "for any special user identification,"
  375. 4770 DATA "such as differentiating between"
  376. 4780 DATA "natural parents and adoptive parents."
  377. 4790 DATA "It is unused by the programs."
  378. 4800 DATA ".pa"
  379. 4810 DATA ".h3 marrfile"
  380. 4820 DATA "The second data file, named 'marrfile',"
  381. 4830 DATA "contains all of the records of marriages."
  382. 4840 DATA "Its contents are as follows:"
  383. 4850 DATA ".sp"
  384. 4860 DATA "Size  Content"
  385. 4870 DATA "----  --------------------------"
  386. 4880 DATA "  5   Record Number of the Marriage"
  387. 4890 DATA "  5   Husband's Record-number"
  388. 4900 DATA "  5   Wife's Record-number"
  389. 4910 DATA "  5   Code"
  390. 4920 DATA " 11   Marriage-date"
  391. 4930 DATA " 18   Marriage-city"
  392. 4940 DATA " 16   Marriage-county"
  393. 4950 DATA " 16   Marriage-state or country"
  394. 4960 DATA " 45   Comments"
  395. 4970 DATA ".sp"
  396. 4980 DATA "Note: Code is available to the user"
  397. 4990 DATA "for any special user identification,"
  398. 5000 DATA "such as differentiating between"
  399. 5010 DATA "first and second marriage of spouses."
  400. 5020 DATA "It is unused by the programs."
  401. 5030 DATA ".pa
  402. 5040 DATA ".h3 pcindex"
  403. 5050 DATA "The first index, named 'pcindex',"
  404. 5060 DATA "provides the relationships between"
  405. 5070 DATA "parents and children.  It contains:"
  406. 5080 DATA ".sp"
  407. 5090 DATA "The Number of Records in the Index."
  408. 5100 DATA ".sp"
  409. 5110 DATA "For each index record:"
  410. 5120 DATA "Parent's Record-number, and Child's"
  411. 5130 DATA "Record-number."
  412. 5140 DATA ".sp"
  413. 5150 DATA "Note:  Index records are in sequence"
  414. 5160 DATA "by Child's Birthdate within Parent's"
  415. 5170 DATA "Record-number."
  416. 5180 DATA ".h3 mindex"
  417. 5190 DATA "The second index, named 'mindex',"
  418. 5200 DATA "provides the relationships between"
  419. 5210 DATA "husbands and wives.  It contains:"
  420. 5220 DATA ".sp"
  421. 5230 DATA "The Number of Records in the Index."
  422. 5240 DATA ".sp"
  423. 5250 DATA "For each index record:"
  424. 5260 DATA "Person's Record-number in the Person's"
  425. 5270 DATA "File, followed by the Marriage-number"
  426. 5280 DATA "within the Marriage-file."
  427. 5290 DATA ".sp"
  428. 5300 DATA "Note:  Index records are in sequence"
  429. 5310 DATA "by Marriage-date within the Person's"
  430. 5320 DATA "Record-number."
  431. 5330 DATA ".pa"
  432. 5340 DATA ".h3 ordfile"
  433. 5350 DATA "The third data file, named 'ordfile'"
  434. 5360 DATA "contains all (LDS) church-related"
  435. 5370 DATA "information about an individual,"
  436. 5380 DATA "including all of the ordinance infor-"
  437. 5390 DATA "mation.  Its contents are as follows:"
  438. 5400 DATA "Size  Content"
  439. 5410 DATA "----  --------------------------"
  440. 5420 DATA "  5   Record Number for a Person"
  441. 5430 DATA " 11   Christening Date"
  442. 5440 DATA " 11   Blessing Date"
  443. 5450 DATA " 11   Sealed to Parents Date"
  444. 5460 DATA "  5   Father's Record Number"
  445. 5470 DATA "  5   Mother's Record Number"
  446. 5480 DATA " 11   Baptism Date"
  447. 5490 DATA " 11   Confirmation Date"
  448. 5500 DATA " 11   Patriarchal Blessing Date"
  449. 5510 DATA " 11   Endowment Date"
  450. 5520 DATA " 11   Sealed to Spouse Date"
  451. 5530 DATA "  5   Spouse's Record Number"
  452. 5540 DATA " 11   Aaronic Priesthood Date"
  453. 5550 DATA " 11   Deacon Date"
  454. 5560 DATA " 11   Teacher Date"
  455. 5570 DATA " 11   Priest Date"
  456. 5580 DATA " 11   Melchizedek Priesthood Date"
  457. 5590 DATA " 11   Elder Date"
  458. 5600 DATA " 11   Seventy Date"
  459. 5610 DATA " 11   High Priest Date"
  460. 5620 DATA " 11   Bishop Date"
  461. 5630 DATA " 11   Patriarch Date"
  462. 5640 DATA " 11   Apostle Date"
  463. 5650 DATA " 26   Occupation"
  464. 5660 DATA ".pa"
  465. 5670 DATA ".h3 Relationships."
  466. 5680 DATA "Because of the relationships carried"
  467. 5690 DATA "within the Persons File, pedigree"
  468. 5700 DATA "information may be associated backward"
  469. 5710 DATA "for any number of generations.  There"
  470. 5720 DATA "is no specific limit to the number of"
  471. 5730 DATA "generations that the Genealogy ON"
  472. 5740 DATA "DISPLAY programs will handle."
  473. 5750 DATA ".sp"
  474. 5760 DATA "Because of the indexes, which relate"
  475. 5770 DATA "parents with their children, coupled"
  476. 5780 DATA "with the information in the Marriages"
  477. 5790 DATA "File, and the index to that file, it"
  478. 5800 DATA "is possible to relate any number of"
  479. 5810 DATA "persons together in families, showing"
  480. 5820 DATA "them in chronological order by the"
  481. 5830 DATA "dates of their births."
  482. 5840 DATA ".sp"
  483. 5850 DATA "(Note: there is no specific limit to"
  484. 5860 DATA "the number of families that the"
  485. 5870 DATA "Genealogy ON DISPLAY programs will"
  486. 5880 DATA "handle, other than the total number"
  487. 5890 DATA "of marriages defined.)
  488. 5900 DATA ".pa"
  489. 5910 DATA ".h2 BEFORE YOU START"
  490. 5920 DATA ".h3 List of Persons"
  491. 5930 DATA "Begin by making a numbered list, which"
  492. 5940 DATA "contains the people who will be in your"
  493. 5950 DATA "Persons File."
  494. 5960 DATA ".sp"
  495. 5970 DATA "This may look somewhat like:"
  496. 5980 DATA ".sp"
  497. 5990 DATA "No.  Surname      Given-Names"
  498. 6000 DATA "---  -----------  -----------"
  499. 6010 DATA "  1  ABLE         Melvin Otto"
  500. 6020 DATA "  2  LOVELY       Helen Lillian"
  501. 6030 DATA "  3  ABLE         Melvin Kent"
  502. 6040 DATA "  4  ABLE         Ronald Robert"
  503. 6050 DATA "  5  ABLE         Carolyn Elizabeth"
  504. 6060 DATA "  6  ABLE         Linda Ann"
  505. 6070 DATA "  7  ABLE         Otto"
  506. 6080 DATA "  8  BAKER        Beatrice"
  507. 6090 DATA "etc.  etc.         etc."
  508. 6100 DATA ".pa"
  509. 6110 DATA "Now go back and add the number which you"
  510. 6120 DATA "have assigned, which represents each"
  511. 6130 DATA "person's father and mother, such as:"
  512. 6140 DATA ".sp"
  513. 6150 DATA ".pk No.  Surname      Given-Names        Father  Mother"
  514. 6160 DATA ".pk ---  -----------  -----------        ------  ------"
  515. 6170 DATA ".pk   1  ABLE         Melvin Otto           7       8"
  516. 6180 DATA ".pk   2  LOVELY       Helen Lillian"
  517. 6190 DATA ".pk   3  ABLE         Melvin Kent           1       2"
  518. 6200 DATA ".pk   4  ABLE         Ronald Robert         1       2"
  519. 6210 DATA ".pk   5  ABLE         Carolyn Elizabeth     1       2"
  520. 6220 DATA ".pk   6  ABLE         Linda Ann             1       2"
  521. 6230 DATA ".pk   7  ABLE         Otto"
  522. 6240 DATA ".pk   8  BAKER        Beatrice"
  523. 6250 DATA ".pk etc.  etc.         etc.                etc.    etc."
  524. 6260 DATA ".sp"
  525. 6270 DATA "Note:  This is your master list of"
  526. 6280 DATA "persons. It will continue to grow as you"
  527. 6290 DATA "add more and more names.  After you have"
  528. 6300 DATA "updated the Persons File with these"
  529. 6310 DATA "people, you can produce the list by"
  530. 6320 DATA "selecting the 'listper' program to"
  531. 6330 DATA "be run."
  532. 6340 DATA ".pa"
  533. 6350 DATA ".h3 List of Marriages"
  534. 6360 DATA "Now make a second numbered list.  Enter"
  535. 6370 DATA "the record-numbers of the persons who"
  536. 6380 DATA "are married.  This may appear as:"
  537. 6390 DATA ".sp"
  538. 6400 DATA "Marriage     Husband's   Wife's"
  539. 6410 DATA "Number       Record-no.  Record-no."
  540. 6420 DATA "--------     ----------  ----------"
  541. 6430 DATA "  1            1           2"
  542. 6440 DATA "  2            7           8"
  543. 6450 DATA " etc.         etc.        etc."
  544. 6460 DATA ".sp"
  545. 6470 DATA "If you find it convenient, you may also"
  546. 6480 DATA "want to include names in this list."
  547. 6490 DATA ".sp"
  548. 6500 DATA "Note:  This is your master list of"
  549. 6510 DATA "marriages. It will continue to grow as"
  550. 6520 DATA "you add more and more marriages.  After"
  551. 6530 DATA "you have updated the Marriages File,"
  552. 6540 DATA "you can produce the list by selecting"
  553. 6550 DATA "the 'listmar' program to be run."
  554. 6560 DATA ".eof"
  555. 6570 END
  556.